! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Utility Data Module File
! 
! Generated by KPP-2.2.4_gc symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : gckpp_Monitor.f90
! Time                 : Sat Oct 24 17:54:35 2020
! Working directory    : /n/home08/kbates/GC/Code.12.3.0_porter/KPP/Tropchem
! Equation file        : gckpp.kpp
! Output root filename : gckpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE gckpp_Monitor


  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &
     'CH2I2          ','CH2ICl         ','CH2IBr         ', & ! index 1 - 3
     'AERI           ','CO2            ','INDIOL         ', & ! index 4 - 6
     'ISALA          ','ISALC          ','ISN1OA         ', & ! index 7 - 9
     'ISN1OG         ','LISOPOH        ','LISOPNO3       ', & ! index 10 - 12
     'LVOCOA         ','LVOC           ','MSA            ', & ! index 13 - 15
     'ONIT           ','PYAC           ','SO4            ', & ! index 16 - 18
     'SO4H1          ','SO4H2          ','SOAGX          ', & ! index 19 - 21
     'SOAIE          ','SOAME          ','IMAE           ', & ! index 22 - 24
     'SOAMG          ','C2H4O3         ','C2H4OH         ', & ! index 25 - 27
     'POx            ','LOx            ','PCO            ', & ! index 28 - 30
     'LCO            ','PSO4           ','LCH4           ', & ! index 31 - 33
     'PH2O2          ','LBENZ          ','LTOLU          ', & ! index 34 - 36
     'LXYLE          ','PCH2O          ','PHCOOH         ', & ! index 37 - 39
     'PRCHO          ','PACTA          ','PCSL           ', & ! index 40 - 42
     'PPHEN          ','PEPX           ','PBALD          ', & ! index 43 - 45
     'PAROMN         ','PDCB1          ','PMCT           ', & ! index 46 - 48
     'PNPHEN         ','PBENZP         ','PHNO3          ', & ! index 49 - 51
     'PGLYX          ','PMGLY          ','PONIT          ', & ! index 52 - 54
     'PR4P           ','PR4N2          ','PRCOOH         ', & ! index 55 - 57
     'PALD2          ','LCSL           ','LPHEN          ', & ! index 58 - 60
     'LEPX           ','LBALD          ','LAROMN         ', & ! index 61 - 63
     'LDCB1          ','LMCT           ','LNPHEN         ', & ! index 64 - 66
     'LBENZP         ','PDCB2          ','PDCB3          ', & ! index 67 - 69
     'PBZCO3H        ','PAROMP         ','PIDC           ', & ! index 70 - 72
     'PMVKPC         ','LDCB2          ','LDCB3          ', & ! index 73 - 75
     'LBZCO3H        ','LAROMP         ','LIDC           ', & ! index 76 - 78
     'LMVKPC         ','I2O4           ','NPHEN          ', & ! index 79 - 81
     'BENZP          ','BALD           ','MCT            ', & ! index 82 - 84
     'AROMN          ','BZPAN          ','DCB2           ', & ! index 85 - 87
     'DCB3           ','BZCO3H         ','AROMP          ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ &
     'IDC            ','MVKPC          ','CH2Br2         ', & ! index 91 - 93
     'CHBr3          ','MONITA         ','CH3I           ', & ! index 94 - 96
     'DHDN           ','DHDC           ','I2O2           ', & ! index 97 - 99
     'PMNN           ','PPN            ','TOLU           ', & ! index 100 - 102
     'XYLE           ','BrNO2          ','CH3Br          ', & ! index 103 - 105
     'I2O3           ','C2H2           ','BENZ           ', & ! index 106 - 108
     'IBr            ','IEPOXD         ','INO            ', & ! index 109 - 111
     'HI             ','IONITA         ','IEPOXA         ', & ! index 112 - 114
     'IEPOXB         ','MAP            ','ETHN           ', & ! index 115 - 117
     'MPN            ','ICl            ','IMAO3          ', & ! index 118 - 120
     'C2H4           ','CH2Cl2         ','CHCl3          ', & ! index 121 - 123
     'Cl2O2          ','OIO            ','RA3P           ', & ! index 124 - 126
     'RB3P           ','IONO           ','CH3Cl          ', & ! index 127 - 129
     'ClNO2          ','DMS            ','HNO2           ', & ! index 130 - 132
     'HNO4           ','ETO            ','ClOO           ', & ! index 133 - 135
     'OClO           ','PAN            ','RP             ', & ! index 136 - 138
     'PHEN           ','CSL            ','PP             ', & ! index 139 - 141
     'PRPN           ','EPX            ','ALK4           ', & ! index 142 - 144
     'PIP            ','R4P            ','ETHP           ', & ! index 145 - 147
     'ATOOH          ','BrCl           ','HOI            ', & ! index 148 - 150
     'HPALD          ','N2O5           ','C3H8           ', & ! index 151 - 153
     'DHPCARP        ','RIPB           ','VRP            ', & ! index 154 - 156
     'MRP            ','Br2            ','Cl2            ', & ! index 157 - 159
     'MP             ','HC187          ','HPC52O2        ', & ! index 160 - 162
     'IAP            ','MOBA           ','DHMOB          ', & ! index 163 - 165
     'HONIT          ','RIPA           ','RIPD           ', & ! index 166 - 168
     'ISNP           ','BrSALA         ','BrSALC         ', & ! index 169 - 171
     'MAOP           ','EOH            ','ETHLN          ', & ! index 172 - 174
     'C2H6           ','INPN           ','MTPO           ', & ! index 175 - 177
     'BrNO3          ','MTPA           ','NPMN           ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_2 = (/ &
     'ETP            ','IONO2          ','MOBAOO         ', & ! index 181 - 183
     'MVKOO          ','DIBOO          ','LIMO           ', & ! index 184 - 186
     'IPMN           ','DCB1           ','CH3CHOO        ', & ! index 187 - 189
     'ETOO           ','GAOO           ','I2             ', & ! index 190 - 192
     'MGLYOO         ','MACRNO2        ','ROH            ', & ! index 193 - 195
     'XNO2           ','MGLOO          ','MONITS         ', & ! index 196 - 198
     'ISOPNB         ','ISNOHOO        ','XO2            ', & ! index 199 - 201
     'H2O2           ','HCOOH          ','XRO2           ', & ! index 202 - 204
     'ISNOOB         ','TRO2           ','HOBr           ', & ! index 205 - 207
     'HOCl           ','PRN1           ','MONITU         ', & ! index 208 - 210
     'IEPOXOO        ','ISOPNBO2       ','MVKN           ', & ! index 211 - 213
     'MACROO         ','BRO2           ','TCO3           ', & ! index 214 - 216
     'GLYX           ','A3O2           ','PROPNN         ', & ! index 217 - 219
     'MAN2           ','ISNOOA         ','ISOP           ', & ! index 220 - 222
     'PO2            ','B3O2           ','ACET           ', & ! index 223 - 225
     'MACRN          ','MAOPO2         ','I              ', & ! index 226 - 228
     'ClNO3          ','IO             ','HNO3           ', & ! index 229 - 231
     'BrO            ','ISOPNDO2       ','OLND           ', & ! index 232 - 234
     'OLNN           ','LIMO2          ','R4N1           ', & ! index 235 - 237
     'ACTA           ','CH2OO          ','RCO3           ', & ! index 238 - 240
     'KO2            ','ISOPND         ','VRO2           ', & ! index 241 - 243
     'HC5OO          ','GLYC           ','MGLY           ', & ! index 244 - 246
     'PIO2           ','ISN1           ','NMAO3          ', & ! index 247 - 249
     'HBr            ','ATO2           ','HC5            ', & ! index 250 - 252
     'MRO2           ','RIO2           ','ETO2           ', & ! index 253 - 255
     'INO2           ','HAC            ','R4O2           ', & ! index 256 - 258
     'PRPE           ','MACR           ','HCl            ', & ! index 259 - 261
     'ClO            ','CH2O           ','MVK            ', & ! index 262 - 264
     'SO2            ','ALD2           ','RCHO           ', & ! index 265 - 267
     'CO             ','HO2            ','MCO3           ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(16) :: SPC_NAMES_3 = (/ &
     'OH             ','Cl             ','O3             ', & ! index 271 - 273
     'NO             ','MO2            ','Br             ', & ! index 274 - 276
     'NO2            ','MEK            ','R4N2           ', & ! index 277 - 279
     'NO3            ','CH4            ','H2             ', & ! index 280 - 282
     'H2O            ','MOH            ','O2             ', & ! index 283 - 285
     'RCOOH          ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(286) :: SPC_NAMES = (/&
    SPC_NAMES_0, SPC_NAMES_1, SPC_NAMES_2, SPC_NAMES_3 /)

  INTEGER, DIMENSION(1) :: LOOKAT
  INTEGER, DIMENSION(1) :: MONITOR
  CHARACTER(LEN=15), DIMENSION(1) :: SMASS
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &
     '       O3 + NO --> NO2 + O2                                                                         ', & ! index 1
     '       OH + O3 --> LOx + HO2 + O2                                                                   ', & ! index 2
     '      HO2 + O3 --> LOx + OH + 2 O2                                                                  ', & ! index 3
     '      O3 + NO2 --> NO3 + O2                                                                         ', & ! index 4
     '      O3 + MO2 --> LOx + PCH2O + CH2O + HO2 + O2                                                    ', & ! index 5
     '          2 OH --> POx + O3 + H2O                                                                   ', & ! index 6
     '          2 OH --> PH2O2 + H2O2                                                                     ', & ! index 7
     '      HO2 + OH --> H2O + O2                                                                         ', & ! index 8
     '     H2O2 + OH --> HO2 + H2O                                                                        ', & ! index 9
     '      HO2 + NO --> POx + OH + NO2                                                                   ', & ! index 10
     '         2 HO2 --> PH2O2 + H2O2 + O2                                                                ', & ! index 11
     '       OH + H2 --> HO2 + H2O                                                                        ', & ! index 12
     '       CO + OH --> CO2 + LCO + HO2                                                                  ', & ! index 13
     '      OH + CH4 --> LCH4 + MO2 + H2O                                                                 ', & ! index 14
     '      NO + MO2 --> POx + PCH2O + CH2O + HO2 + NO2                                                   ', & ! index 15
     '     HO2 + MO2 --> MP + O2                                                                          ', & ! index 16
     '         2 MO2 --> PCH2O + CH2O + MOH + O2                                                          ', & ! index 17
     '         2 MO2 --> 2 PCH2O + 2 CH2O + 2 HO2                                                         ', & ! index 18
     '       MP + OH --> MO2 + H2O                                                                        ', & ! index 19
     '       MP + OH --> PCH2O + CH2O + OH + H2O                                                          ', & ! index 20
     '    ATOOH + OH --> ATO2 + H2O                                                                       ', & ! index 21
     '    ATOOH + OH --> PMGLY + MGLY + OH + H2O                                                          ', & ! index 22
     '     CH2O + OH --> PCO + CO + HO2 + H2O                                                             ', & ! index 23
     '      OH + NO2 --> PHNO3 + HNO3                                                                     ', & ! index 24
     '     HNO3 + OH --> POx + NO3 + H2O                                                                  ', & ! index 25
     '       OH + NO --> HNO2                                                                             ', & ! index 26
     '     HNO2 + OH --> POx + NO2 + H2O                                                                  ', & ! index 27
     '     HO2 + NO2 --> HNO4                                                                             ', & ! index 28
     '          HNO4 --> HO2 + NO2                                                                        ', & ! index 29
     '     HNO4 + OH --> NO2 + H2O + O2                                                                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &
     '     HO2 + NO3 --> LOx + OH + NO2 + O2                                                              ', & ! index 31
     '      NO + NO3 --> 2 NO2                                                                            ', & ! index 32
     '      OH + NO3 --> LOx + HO2 + NO2                                                                  ', & ! index 33
     '     NO2 + NO3 --> N2O5                                                                             ', & ! index 34
     '          N2O5 --> NO2 + NO3                                                                        ', & ! index 35
     '    HCOOH + OH --> CO2 + HO2 + H2O                                                                  ', & ! index 36
     '      OH + MOH --> PCH2O + CH2O + HO2                                                               ', & ! index 37
     '     NO2 + NO3 --> 2 LOx + NO + NO2 + O2                                                            ', & ! index 38
     '    CH2O + NO3 --> LOx + PCO + PHNO3 + HNO3 + CO + HO2                                              ', & ! index 39
     '     ALD2 + OH --> 0.05 PCO + 0.05 PCH2O + 0.05 CH2O + 0.05 CO + 0.05 HO2 + 0.95 MCO3 + H2O         ', & ! index 40
     '    ALD2 + NO3 --> LOx + PHNO3 + HNO3 + MCO3                                                        ', & ! index 41
     '    MCO3 + NO2 --> PAN                                                                              ', & ! index 42
     '           PAN --> MCO3 + NO2                                                                       ', & ! index 43
     '     MCO3 + NO --> CO2 + POx + MO2 + NO2                                                            ', & ! index 44
     '     C2H6 + OH --> ETO2 + H2O                                                                       ', & ! index 45
     '     ETO2 + NO --> POx + PALD2 + ALD2 + HO2 + NO2                                                   ', & ! index 46
     '     C3H8 + OH --> B3O2                                                                             ', & ! index 47
     '     C3H8 + OH --> A3O2                                                                             ', & ! index 48
     '     A3O2 + NO --> POx + PRCHO + RCHO + HO2 + NO2                                                   ', & ! index 49
     '      PO2 + NO --> POx + PCH2O + PALD2 + CH2O + ALD2 + HO2 + NO2                                    ', & ! index 50
     '     ALK4 + OH --> R4O2                                                                             ', & ! index 51
     '     R4O2 + NO --> POx + 0.14 PRCHO + 0.32 PALD2 + 0.05 A3O2 + 0.18 B3O2 + 0.32 ACET + 0.32 ETO2 + 0', & ! index 52
     '     R4O2 + NO --> POx + PR4N2 + R4N2                                                               ', & ! index 53
     '     R4N1 + NO --> POx + 0.57 PCH2O + 0.57 PRCHO + 0.86 PALD2 + 0.57 CH2O + 0.86 ALD2 + 0.57 RCHO + ', & ! index 54
     '     ATO2 + NO --> POx + PCH2O + CH2O + MCO3 + NO2                                                  ', & ! index 55
     '      KO2 + NO --> POx + 0.07 PR4N2 + 0.93 PALD2 + 0.93 ALD2 + 0.93 MCO3 + 0.93 NO2 + 0.07 R4N2     ', & ! index 56
     '     RIO2 + NO --> POx + 0.82 PCH2O + 0.03 DIBOO + 0.081 ISOPNB + 0.009 ISOPND + 0.058 HC5 + 0.344 M', & ! index 57
     '          RIO2 --> 0.5 HPALD + 0.5 DHPCARP                                                          ', & ! index 58
     '     VRO2 + NO --> POx + 0.35 PCH2O + 0.35 PMGLY + 0.12 MVKN + 0.53 GLYC + 0.35 MGLY + 0.35 CH2O + 0', & ! index 59
     '     MRO2 + NO --> POx + 0.728 PCO + 0.122 PCH2O + 0.122 PMGLY + 0.15 MACRN + 0.122 MGLY + 0.728 HAC' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &
     '          MRO2 --> PCO + HAC + CO + OH                                                              ', & ! index 61
     '     MAN2 + NO --> POx + 0.5 PCO + 0.5 PCH2O + 0.5 PMGLY + 0.5 PROPNN + 0.5 MGLY + 0.5 CH2O + 0.5 CO', & ! index 62
     '     B3O2 + NO --> POx + ACET + HO2 + NO2                                                           ', & ! index 63
     '     INO2 + NO --> POx + 0.07 PCH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.07 CH2O + 0.035 MVK + 0.8', & ! index 64
     '    INO2 + NO3 --> LOx + 0.07 PCH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.07 CH2O + 0.035 MVK + 0.8', & ! index 65
     '    ISN1 + NO3 --> 1.4 LOx + 0.6 PHNO3 + 0.4 ISNOOB + 0.6 ISNOOA + 0.6 HNO3                         ', & ! index 66
     '  ISNOOA + NO3 --> 0.04 ISN1OG + 1.04 LOx + PCO + 0.96 PROPNN + CO + HO2 + NO2                      ', & ! index 67
     '   ISNOOA + NO --> 0.04 ISN1OG + 0.96 POx + PCO + 0.96 PROPNN + CO + HO2 + NO2                      ', & ! index 68
     '  ISNOOA + NO2 --> 0.04 ISN1OG + 1.04 LOx + 0.96 IPMN                                               ', & ! index 69
     '  ISNOOA + HO2 --> 0.04 ISN1OG + 0.21 POx + 0.25 PRCOOH + 0.75 RP + 0.25 O3 + 0.96 NO2 + 0.25 RCOOH ', & ! index 70
     '  ISNOOB + NO3 --> 0.04 ISN1OG + 0.06 LOx + PGLYX + GLYX + 0.94 PROPNN + 2 NO2                      ', & ! index 71
     '   ISNOOB + NO --> 0.04 ISN1OG + 1.78 POx + 0.94 PGLYX + 0.94 GLYX + 0.9 PROPNN + 1.88 NO2          ', & ! index 72
     '  ISNOOB + HO2 --> 0.04 ISN1OG + 0.04 LOx + 0.96 INPN                                               ', & ! index 73
     '  ISNOOB + MO2 --> 0.04 ISN1OG + 0.36 POx + 0.75 PCH2O + 0.7 PGLYX + 0.7 GLYX + 0.66 PROPNN + 0.75 C', & ! index 74
     '     ISN1 + O3 --> LOx + 0.75 PCH2O + 0.7 PGLYX + 0.7 GLYX + 0.3 PROPNN + 0.75 CH2O + 0.5 HO2 + 0.7 ', & ! index 75
     '     ISN1 + OH --> 0.655 ISNOHOO + 0.345 ISNOOA                                                     ', & ! index 76
     '  ISNOHOO + NO --> 0.04 ISN1OG + 0.106 LOx + 0.919 PGLYX + 0.919 GLYX + 0.894 PROPNN + 0.934 HO2    ', & ! index 77
     ' ISNOHOO + HO2 --> 0.04 ISN1OG + 0.04 LOx + 0.96 INPN                                               ', & ! index 78
     ' ISNOHOO + MO2 --> 0.04 ISN1OG + 0.34 LOx + 0.75 PCH2O + 0.7 PGLYX + 0.7 GLYX + 0.66 PROPNN + 0.75 C', & ! index 79
     '        2 INO2 --> 0.07 PCH2O + 0.5 ISOPND + 1.2 ISN1 + 0.23 HC5 + 0.035 MACR + 0.07 CH2O + 0.035 MV', & ! index 80
     '     PRN1 + NO --> POx + PCH2O + PALD2 + CH2O + ALD2 + 2 NO2                                        ', & ! index 81
     '    ALK4 + NO3 --> LOx + PHNO3 + HNO3 + R4O2                                                        ', & ! index 82
     '     OH + R4N2 --> R4N1 + H2O                                                                       ', & ! index 83
     '     ACTA + OH --> CO2 + MO2 + H2O                                                                  ', & ! index 84
     '     RCHO + OH --> RCO3 + H2O                                                                       ', & ! index 85
     '    RCO3 + NO2 --> PPN                                                                              ', & ! index 86
     '           PPN --> RCO3 + NO2                                                                       ', & ! index 87
     '   IMAO3 + NO2 --> IPMN                                                                             ', & ! index 88
     '   NMAO3 + NO2 --> NPMN                                                                             ', & ! index 89
     '          IPMN --> IMAO3 + NO2                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &
     '          NPMN --> NMAO3 + NO2                                                                      ', & ! index 91
     '     RCO3 + NO --> POx + ETO2 + NO2                                                                 ', & ! index 92
     '    NMAO3 + NO --> CO2 + POx + 0.5 PCO + 0.5 PCH2O + 0.5 CH2O + 0.5 CO + 0.5 MCO3 + 0.5 MO2 + NO2   ', & ! index 93
     '    RCHO + NO3 --> LOx + PHNO3 + HNO3 + RCO3                                                        ', & ! index 94
     '     ACET + OH --> ATO2 + H2O                                                                       ', & ! index 95
     '    A3O2 + MO2 --> 0.75 PCH2O + 0.75 PRCHO + 0.25 ROH + 0.75 CH2O + 0.75 RCHO + HO2 + 0.25 MOH      ', & ! index 96
     '     PO2 + MO2 --> 1.25 PCH2O + 0.09 PRCHO + 0.5 PALD2 + 0.25 ROH + 0.16 HAC + 1.25 CH2O + 0.5 ALD2 ', & ! index 97
     '    R4O2 + HO2 --> PR4P + R4P                                                                       ', & ! index 98
     '    R4N1 + HO2 --> PR4N2 + R4N2                                                                     ', & ! index 99
     '    ATO2 + HO2 --> 0.15 PCH2O + 0.85 ATOOH + 0.15 CH2O + 0.15 MCO3 + 0.15 OH                        ', & ! index 100
     '     KO2 + HO2 --> 0.15 PALD2 + 0.85 ATOOH + 0.15 ALD2 + 0.15 MCO3 + 0.15 OH                        ', & ! index 101
     '    RIO2 + HO2 --> 0.063 PCH2O + 0.272 RIPB + 0.628 RIPA + 0.037 RIPD + 0.025 MACR + 0.063 CH2O + 0.', & ! index 102
     '    VRO2 + HO2 --> 0.102 PCH2O + 0.033 PRCHO + 0.102 PMGLY + 0.1 VRP + 0.578 GLYC + 0.102 MGLY + 0.1', & ! index 103
     '    MRO2 + HO2 --> MRP                                                                              ', & ! index 104
     '    MAN2 + HO2 --> 0.075 PCO + 0.075 PCH2O + 0.075 PMGLY + 0.85 MAOP + 0.075 PROPNN + 0.075 MGLY + 0', & ! index 105
     '    B3O2 + HO2 --> RB3P                                                                             ', & ! index 106
     '    INO2 + HO2 --> INPN                                                                             ', & ! index 107
     '    PRN1 + HO2 --> PRPN                                                                             ', & ! index 108
     '      OH + MEK --> KO2 + H2O                                                                        ', & ! index 109
     '    ETO2 + MO2 --> 0.75 PCH2O + 0.75 PALD2 + 0.25 EOH + 0.75 CH2O + 0.75 ALD2 + HO2 + 0.25 MOH      ', & ! index 110
     '     MEK + NO3 --> LOx + PHNO3 + HNO3 + KO2                                                         ', & ! index 111
     '    R4O2 + MO2 --> 0.75 PCH2O + 0.07 PRCHO + 0.16 PALD2 + 0.25 ROH + 0.03 A3O2 + 0.09 B3O2 + 0.16 AC', & ! index 112
     '    R4N1 + MO2 --> 0.95 PCH2O + 0.54 PRCHO + 0.38 PALD2 + 0.25 ROH + 0.15 R4O2 + 0.95 CH2O + 0.38 AL', & ! index 113
     '    ATO2 + MO2 --> 0.5 PCH2O + 0.5 PMGLY + 0.5 MGLY + 0.2 HAC + 0.5 CH2O + 0.3 HO2 + 0.3 MCO3 + 0.5 ', & ! index 114
     '     KO2 + MO2 --> 0.75 PCH2O + 0.5 PALD2 + 0.25 ROH + 0.75 CH2O + 0.5 ALD2 + 0.5 HO2 + 0.5 MCO3 + 0', & ! index 115
     '    RIO2 + MO2 --> 1.22 PCH2O + 0.24 ROH + 0.3 HC5 + 0.18 MACR + 1.22 CH2O + 0.28 MVK + 1.1 HO2 + 0.', & ! index 116
     '        2 RIO2 --> 0.29 PCO + 0.75 PCH2O + 0.09 DIBOO + 1.11 HC5 + 0.29 MACR + 0.75 CH2O + 0.45 MVK ', & ! index 117
     '   HC5OO + MO2 --> 0.33 PCO + 0.95 PCH2O + 0.29 PMGLY + 0.25 ROH + 0.13 GLYC + 0.29 MGLY + 0.18 HAC ', & ! index 118
     '    VRO2 + MO2 --> 0.89 PCH2O + 0.14 PMGLY + 0.25 ROH + 0.36 GLYC + 0.14 MGLY + 0.89 CH2O + 0.64 HO2', & ! index 119
     '    MRO2 + MO2 --> 0.595 PCO + 1.255 PCH2O + 0.255 PMGLY + 0.15 ROH + 0.255 MGLY + 0.595 HAC + 1.255' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &
     '    MAN2 + MO2 --> 0.375 PCO + 0.625 PCH2O + 0.375 PMGLY + 0.25 PR4N2 + 0.375 PROPNN + 0.375 MGLY + ', & ! index 121
     '    B3O2 + MO2 --> 0.75 PCH2O + 0.25 ROH + 0.75 ACET + 0.75 CH2O + HO2 + 0.25 MOH                   ', & ! index 122
     '    INO2 + MO2 --> 0.785 PCH2O + 0.25 ISOPND + 0.6 ISN1 + 0.115 HC5 + 0.018 MACR + 0.785 CH2O + 0.01', & ! index 123
     '    PRN1 + MO2 --> 1.25 PCH2O + 0.25 PRCHO + 0.5 PALD2 + 0.25 ROH + 1.25 CH2O + 0.5 ALD2 + 0.25 RCHO', & ! index 124
     '      EOH + OH --> PALD2 + ALD2 + HO2                                                               ', & ! index 125
     '      ROH + OH --> PRCHO + RCHO + HO2                                                               ', & ! index 126
     '        2 ETO2 --> 2 PALD2 + 2 ALD2 + 2 HO2                                                         ', & ! index 127
     '        2 ETO2 --> PALD2 + EOH + ALD2                                                               ', & ! index 128
     '    ETO2 + HO2 --> ETP                                                                              ', & ! index 129
     '    A3O2 + HO2 --> RA3P                                                                             ', & ! index 130
     '     PO2 + HO2 --> PP                                                                               ', & ! index 131
     '    HO2 + MCO3 --> 0.15 POx + 0.15 PACTA + 0.41 MAP + 0.15 ACTA + 0.44 OH + 0.15 O3 + 0.44 MO2      ', & ! index 132
     '    RCO3 + HO2 --> 0.15 POx + 0.15 PRCOOH + 0.41 RP + 0.44 ETO2 + 0.44 OH + 0.15 O3 + 0.15 RCOOH    ', & ! index 133
     '   NMAO3 + HO2 --> 0.15 POx + 0.39 PCO + 0.59 PCH2O + 0.41 MAOP + 0.59 CH2O + 0.39 CO + 0.44 OH + 0.', & ! index 134
     '     PRPE + OH --> PO2                                                                              ', & ! index 135
     '     PRPE + O3 --> LOx + 0.56 PCO + 0.5 PCH2O + 0.5 PALD2 + 0.12 CH3CHOO + 0.12 CH2OO + 0.5 CH2O + 0', & ! index 136
     '     NPMN + OH --> PCO + HAC + CO + NO2                                                             ', & ! index 137
     '     IPMN + OH --> 0.781 IMAE + 0.81 POx + 0.03 PCO + 0.19 PCH2O + 0.19 PAN + 0.03 HAC + 0.19 CH2O +', & ! index 138
     '     NPMN + O3 --> PCH2O + CH2O + MCO3 + NO3                                                        ', & ! index 139
     '     IMAE + OH --> OH                                                                               ', & ! index 140
     '     GLYC + OH --> 0.361 CO2 + 0.505 PCO + 0.732 PCH2O + 0.134 PHCOOH + 0.134 PGLYX + 0.134 HCOOH + ', & ! index 141
     '     GLYC + OH --> PCO + PHCOOH + HCOOH + CO + OH                                                   ', & ! index 142
     '    PRPE + NO3 --> LOx + PRN1                                                                       ', & ! index 143
     '     GLYX + OH --> 2 PCO + 2 CO + HO2                                                               ', & ! index 144
     '     MGLY + OH --> PCO + CO + MCO3                                                                  ', & ! index 145
     '    GLYX + NO3 --> LOx + 2 PCO + PHNO3 + HNO3 + 2 CO + HO2                                          ', & ! index 146
     '    MGLY + NO3 --> LOx + PCO + PHNO3 + HNO3 + CO + MCO3                                             ', & ! index 147
     '     ISOP + OH --> LISOPOH + RIO2                                                                   ', & ! index 148
     '      MVK + OH --> VRO2                                                                             ', & ! index 149
     '     MACR + OH --> 0.53 IMAO3 + 0.47 MRO2                                                           ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &
     '      HAC + OH --> PMGLY + MGLY + HO2                                                               ', & ! index 151
     '      HAC + OH --> 0.5 CO2 + 0.5 PCO + 0.5 PHCOOH + 0.5 PACTA + 0.5 HCOOH + 0.5 ACTA + 0.5 CO + OH +', & ! index 152
     '   A3O2 + MCO3 --> PRCHO + RCHO + HO2 + MO2                                                         ', & ! index 153
     '    PO2 + MCO3 --> PCH2O + PALD2 + CH2O + ALD2 + HO2 + MO2                                          ', & ! index 154
     '   A3O2 + MCO3 --> PRCHO + PACTA + ACTA + RCHO                                                      ', & ! index 155
     '    PO2 + MCO3 --> 0.35 PRCHO + PACTA + ACTA + 0.65 HAC + 0.35 RCHO                                 ', & ! index 156
     '     ISOP + O3 --> LOx + 0.495 PCO + 0.456 PCH2O + 0.044 MVKOO + 0.044 MACROO + 0.11 CH2OO + 0.054 V', & ! index 157
     '      MVK + O3 --> LOx + 0.56 PCO + 0.6 PCH2O + 0.5 PMGLY + 0.1 PALD2 + 0.12 MGLOO + 0.12 CH2OO + 0.', & ! index 158
     '     MACR + O3 --> LOx + 0.625 PCO + 0.12 PCH2O + 0.88 PMGLY + 0.022 MGLYOO + 0.326 CH2OO + 0.88 MGL', & ! index 159
     '    ISOP + NO3 --> LISOPNO3 + LOx + INO2                                                            ', & ! index 160
     '    MACR + NO3 --> LOx + MAN2                                                                       ', & ! index 161
     '    MACR + NO3 --> 1.5 LOx + 0.5 PCO + 0.5 PHNO3 + 0.5 IMAO3 + 0.5 MAOP + 0.5 HNO3 + 0.5 MRO2 + 0.5 ', & ! index 162
     '    RCO3 + MO2 --> PCH2O + ETO2 + CH2O + HO2                                                        ', & ! index 163
     '   NMAO3 + MO2 --> 2 PCH2O + 2 CH2O + HO2 + MCO3                                                    ', & ! index 164
     '    RCO3 + MO2 --> PCH2O + PRCOOH + CH2O + RCOOH                                                    ', & ! index 165
     '   NMAO3 + MO2 --> PCH2O + PRCOOH + CH2O + RCOOH                                                    ', & ! index 166
     '     INPN + OH --> OH + NO2 + MEK                                                                   ', & ! index 167
     '     INPN + OH --> 0.64 PR4N2 + 0.36 INO2 + 0.64 OH + 0.64 R4N2                                     ', & ! index 168
     '     PRPN + OH --> 0.209 PRN1 + 0.791 PROPNN + 0.791 OH                                             ', & ! index 169
     '      ETP + OH --> 0.64 PALD2 + 0.36 ETO2 + 0.64 ALD2 + 0.64 OH                                     ', & ! index 170
     '     RA3P + OH --> 0.64 PRCHO + 0.36 A3O2 + 0.64 RCHO + 0.64 OH                                     ', & ! index 171
     '     RB3P + OH --> 0.209 B3O2 + 0.791 ACET + 0.791 OH                                               ', & ! index 172
     '      R4P + OH --> 0.791 PRCHO + 0.209 R4O2 + 0.791 RCHO + 0.791 OH                                 ', & ! index 173
     '       RP + OH --> RCO3                                                                             ', & ! index 174
     '       PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH                                                 ', & ! index 175
     '     RIPA + OH --> 0.007 LVOC + 0.243 HC5 + 0.75 RIO2 + 0.125 OH + 0.125 H2O                        ', & ! index 176
     '     RIPB + OH --> 0.007 LVOC + 0.513 HC5 + 0.48 RIO2 + 0.26 OH + 0.26 H2O                          ', & ! index 177
     '     RIPD + OH --> 0.007 LVOC + 0.743 HC5 + 0.25 RIO2 + 0.375 OH + 0.375 H2O                        ', & ! index 178
     '     RIPA + OH --> 0.007 LVOC + 0.578 IEPOXA + 0.272 IEPOXB + 0.143 HC5OO + 0.85 OH                 ', & ! index 179
     '     RIPB + OH --> 0.68 IEPOXA + 0.32 IEPOXB + OH                                                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &
     '     RIPD + OH --> 0.007 LVOC + 0.5 IEPOXD + 0.493 HC5OO + 0.5 OH                                   ', & ! index 181
     '     LVOC + OH --> OH                                                                               ', & ! index 182
     '   IEPOXA + OH --> IEPOXOO                                                                          ', & ! index 183
     '   IEPOXB + OH --> IEPOXOO                                                                          ', & ! index 184
     '   IEPOXD + OH --> IEPOXOO                                                                          ', & ! index 185
     ' IEPOXOO + HO2 --> 1.172 CO2 + 0.6 PCO + 0.375 PCH2O + 0.278 PHCOOH + 0.085 PGLYX + 0.085 PMGLY + 0.', & ! index 186
     '  IEPOXOO + NO --> 0.858 CO2 + POx + 0.678 PCO + 0.375 PCH2O + 0.142 PHCOOH + 0.088 PGLYX + 0.088 PM', & ! index 187
     '      IAP + OH --> 0.654 DHMOB + 0.346 HC5OO + 0.654 OH                                             ', & ! index 188
     '      VRP + OH --> 0.209 VRO2 + 0.791 OH + 0.791 MEK                                                ', & ! index 189
     '      MRP + OH --> MRO2                                                                             ', & ! index 190
     '      MRP + OH --> CO2 + HAC + OH                                                                   ', & ! index 191
     '     MAOP + OH --> NMAO3                                                                            ', & ! index 192
     '     MAOP + OH --> MAOPO2                                                                           ', & ! index 193
     ' MAOPO2 + MCO3 --> 2 CO2 + HAC + OH + MO2                                                           ', & ! index 194
     ' MAOPO2 + MCO3 --> PACTA + ACTA + MEK                                                               ', & ! index 195
     '  MAOPO2 + MO2 --> 0.7 CO2 + PCH2O + 0.3 ROH + 0.7 HAC + CH2O + 0.7 HO2 + 0.7 OH                    ', & ! index 196
     '      2 MAOPO2 --> 2 CO2 + 2 HAC + 2 OH                                                             ', & ! index 197
     '  MAOPO2 + HO2 --> CO2 + HAC + 2 OH                                                                 ', & ! index 198
     '   MAOPO2 + NO --> CO2 + POx + HAC + OH + NO2                                                       ', & ! index 199
     '   MAOPO2 + NO --> POx + PHNO3 + HNO3                                                               ', & ! index 200
     '      MAP + OH --> MCO3                                                                             ', & ! index 201
     '    C2H6 + NO3 --> LOx + PHNO3 + HNO3 + ETO2                                                        ', & ! index 202
     '      HC5 + O3 --> LOx + 0.89 PCO + 0.445 PCH2O + 0.5 PMGLY + 0.055 GAOO + 0.055 MGLYOO + 0.5 GLYC +', & ! index 203
     '        2 MCO3 --> 2 MO2                                                                            ', & ! index 204
     '    MCO3 + MO2 --> PCH2O + CH2O + HO2 + MO2                                                         ', & ! index 205
     '    MCO3 + MO2 --> PCH2O + PACTA + ACTA + CH2O                                                      ', & ! index 206
     '   R4O2 + MCO3 --> 0.13 PRCHO + 0.32 PALD2 + 0.05 A3O2 + 0.18 B3O2 + 0.32 ACET + 0.32 ETO2 + 0.32 AL', & ! index 207
     '   ATO2 + MCO3 --> PCH2O + CH2O + MCO3 + MO2                                                        ', & ! index 208
     '    KO2 + MCO3 --> PALD2 + ALD2 + MCO3 + MO2                                                        ', & ! index 209
     '   RIO2 + MCO3 --> CO2 + 0.747 PCH2O + 0.113 DIBOO + 0.14 HC5 + 0.294 MACR + 0.747 CH2O + 0.453 MVK ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &
     '  HC5OO + MCO3 --> 0.09 PCO + 0.09 PRCHO + 0.216 PGLYX + 0.234 PMGLY + 0.17 MOBA + 0.29 DHMOB + 0.21', & ! index 211
     '   VRO2 + MCO3 --> 0.4 PCH2O + 0.4 PMGLY + 0.6 GLYC + 0.4 MGLY + 0.4 CH2O + 0.4 HO2 + 0.6 MCO3 + MO2', & ! index 212
     '   MRO2 + MCO3 --> 0.857 PCO + 0.143 PCH2O + 0.143 PMGLY + 0.143 MGLY + 0.857 HAC + 0.143 CH2O + 0.8', & ! index 213
     '   B3O2 + MCO3 --> ACET + HO2 + MO2                                                                 ', & ! index 214
     '   R4N1 + MCO3 --> 0.39 PCH2O + 0.57 PRCHO + 0.75 PALD2 + 0.3 R4O2 + 0.39 CH2O + 0.75 ALD2 + 0.57 RC', & ! index 215
     '   MAN2 + MCO3 --> CO2 + 0.5 PCO + 0.5 PCH2O + 0.5 PMGLY + 0.5 PROPNN + 0.5 MGLY + 0.5 CH2O + 0.5 CO', & ! index 216
     '   INO2 + MCO3 --> 0.07 PCH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.07 CH2O + 0.035 MVK + 0.8 HO2 +', & ! index 217
     '   PRN1 + MCO3 --> PCH2O + PALD2 + CH2O + ALD2 + MO2 + NO2                                          ', & ! index 218
     '   R4O2 + MCO3 --> PACTA + ACTA + MEK                                                               ', & ! index 219
     '   ATO2 + MCO3 --> PACTA + PMGLY + ACTA + MGLY                                                      ', & ! index 220
     '    KO2 + MCO3 --> PACTA + ACTA + MEK                                                               ', & ! index 221
     '   RIO2 + MCO3 --> PACTA + ACTA + MEK                                                               ', & ! index 222
     '  HC5OO + MCO3 --> PACTA + ACTA + MEK                                                               ', & ! index 223
     '   VRO2 + MCO3 --> PACTA + ACTA + MEK                                                               ', & ! index 224
     '   MRO2 + MCO3 --> PACTA + ACTA + MEK                                                               ', & ! index 225
     '   R4N1 + MCO3 --> PRCHO + PACTA + ACTA + RCHO + NO2                                                ', & ! index 226
     '   MAN2 + MCO3 --> PRCHO + PACTA + ACTA + RCHO + NO2                                                ', & ! index 227
     '   INO2 + MCO3 --> PRCHO + PACTA + ACTA + RCHO + NO2                                                ', & ! index 228
     '   PRN1 + MCO3 --> PRCHO + PACTA + ACTA + RCHO + NO2                                                ', & ! index 229
     '   B3O2 + MCO3 --> PACTA + ACET + ACTA                                                              ', & ! index 230
     '   ETO2 + MCO3 --> PALD2 + ALD2 + HO2 + MO2                                                         ', & ! index 231
     '   ETO2 + MCO3 --> PACTA + PALD2 + ACTA + ALD2                                                      ', & ! index 232
     '   RCO3 + MCO3 --> ETO2 + MO2                                                                       ', & ! index 233
     '  NMAO3 + MCO3 --> PCH2O + CH2O + MCO3 + MO2                                                        ', & ! index 234
     '         2 NO3 --> 2 LOx + 2 NO2 + O2                                                               ', & ! index 235
     '     MO2 + NO2 --> MPN                                                                              ', & ! index 236
     '           MPN --> MO2 + NO2                                                                        ', & ! index 237
     '   ISOPNB + O3 --> 0.36 CO2 + 0.64 LOx + 0.21 PCO + 0.62 PCH2O + 0.16 PHCOOH + 0.41 PHNO3 + 0.16 HCO', & ! index 238
     '   ISOPND + O3 --> 0.63 CO2 + LOx + 0.2 PCH2O + 0.3 PHNO3 + 0.06 PGLYX + 0.09 EOH + 0.26 ETHLN + 0.0', & ! index 239
     '      DMS + OH --> PCH2O + CH2O + SO2 + MO2                                                         ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &
     '      DMS + OH --> 0.25 MSA + 0.75 SO2 + MO2                                                        ', & ! index 241
     '     DMS + NO3 --> LOx + PCH2O + PHNO3 + HNO3 + CH2O + SO2 + MO2                                    ', & ! index 242
     '      SO2 + OH --> SO4 + PSO4 + HO2                                                                 ', & ! index 243
     '       O3 + Br --> BrO + O2                                                                         ', & ! index 244
     '     BrO + HO2 --> HOBr + O2                                                                        ', & ! index 245
     '      HO2 + Br --> HBr + O2                                                                         ', & ! index 246
     '      HBr + OH --> Br + H2O                                                                         ', & ! index 247
     '         2 BrO --> 2 LOx + 2 Br + O2                                                                ', & ! index 248
     '         2 BrO --> 2 LOx + Br2 + O2                                                                 ', & ! index 249
     '      BrO + NO --> Br + NO2                                                                         ', & ! index 250
     '    BrNO3 + Br --> Br2 + NO3                                                                        ', & ! index 251
     '      Br2 + OH --> POx + HOBr + Br                                                                  ', & ! index 252
     '      BrO + OH --> LOx + HO2 + Br                                                                   ', & ! index 253
     '      Br + NO3 --> BrO + NO2                                                                        ', & ! index 254
     '     CH2O + Br --> PCO + HBr + CO + HO2                                                             ', & ! index 255
     '     ALD2 + Br --> HBr + MCO3                                                                       ', & ! index 256
     '     ACET + Br --> HBr + ATO2                                                                       ', & ! index 257
     '     C2H6 + Br --> HBr + ETO2                                                                       ', & ! index 258
     '     C3H8 + Br --> A3O2 + HBr                                                                       ', & ! index 259
     '      Br + NO2 --> BrNO2                                                                            ', & ! index 260
     '     BrO + NO2 --> BrNO3                                                                            ', & ! index 261
     '    CHBr3 + OH --> 3 Br                                                                             ', & ! index 262
     '   CH2Br2 + OH --> 2 Br                                                                             ', & ! index 263
     '    CH3Br + OH --> HO2 + Br + H2O                                                                   ', & ! index 264
     '      Cl2 + OH --> POx + HOCl + Cl                                                                  ', & ! index 265
     '     ClO + MO2 --> LOx + PCH2O + ClOO + CH2O + HO2                                                  ', & ! index 266
     '      ClO + OH --> LOx + HO2 + Cl                                                                   ', & ! index 267
     '      ClO + OH --> LOx + HCl + O2                                                                   ', & ! index 268
     '     OClO + OH --> LOx + HOCl + O2                                                                  ', & ! index 269
     '    Cl2O2 + OH --> LOx + ClOO + HOCl                                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &
     '      HCl + OH --> Cl + H2O                                                                         ', & ! index 271
     '     HOCl + OH --> ClO + H2O                                                                        ', & ! index 272
     '    ClNO2 + OH --> POx + HOCl + NO2                                                                 ', & ! index 273
     '    ClNO3 + OH --> POx + HOCl + NO3                                                                 ', & ! index 274
     '    CH3Cl + OH --> HO2 + Cl + H2O                                                                   ', & ! index 275
     '   CH2Cl2 + OH --> HO2 + 2 Cl                                                                       ', & ! index 276
     '    CHCl3 + OH --> HO2 + 3 Cl                                                                       ', & ! index 277
     '      Cl + CH4 --> LCH4 + HCl + MO2                                                                 ', & ! index 278
     '     CH2O + Cl --> PCO + HCl + CO + HO2                                                             ', & ! index 279
     '       Cl + O3 --> ClO + O2                                                                         ', & ! index 280
     '     H2O2 + Cl --> HCl + HO2                                                                        ', & ! index 281
     '      HO2 + Cl --> HCl + O2                                                                         ', & ! index 282
     '      HO2 + Cl --> POx + ClO + OH                                                                   ', & ! index 283
     '     ClO + HO2 --> HOCl + O2                                                                        ', & ! index 284
     '      ClO + NO --> Cl + NO2                                                                         ', & ! index 285
     '     ClO + NO2 --> ClNO3                                                                            ', & ! index 286
     '         2 ClO --> 2 LOx + Cl2 + O2                                                                 ', & ! index 287
     '         2 ClO --> 2 LOx + ClOO + Cl                                                                ', & ! index 288
     '         2 ClO --> OClO + Cl                                                                        ', & ! index 289
     '            Cl --> ClOO                                                                             ', & ! index 290
     '          ClOO --> Cl + O2                                                                          ', & ! index 291
     '         2 ClO --> Cl2O2                                                                            ', & ! index 292
     '         Cl2O2 --> 2 ClO                                                                            ', & ! index 293
     '     ClOO + Cl --> Cl2 + O2                                                                         ', & ! index 294
     '     ClOO + Cl --> 2 POx + 2 ClO                                                                    ', & ! index 295
     '     BrO + ClO --> OClO + Br                                                                        ', & ! index 296
     '     BrO + ClO --> 2 LOx + ClOO + Br                                                                ', & ! index 297
     '     BrO + ClO --> 2 LOx + BrCl + O2                                                                ', & ! index 298
     '    ClNO3 + Cl --> Cl2 + NO3                                                                        ', & ! index 299
     '    CH3Cl + Cl --> PCO + 2 HCl + CO + HO2                                                           ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ &
     '   CH2Cl2 + Cl --> PCO + HCl + CO + HO2 + 2 Cl                                                      ', & ! index 301
     '    CHCl3 + Cl --> PCO + HCl + CO + HO2 + 3 Cl                                                      ', & ! index 302
     '    HCOOH + Cl --> CO2 + HCl + H2O                                                                  ', & ! index 303
     '      Cl + MO2 --> POx + PCH2O + ClO + CH2O + HO2                                                   ', & ! index 304
     '       MP + Cl --> HCl + MO2                                                                        ', & ! index 305
     '     C2H6 + Cl --> ETO2 + HCl                                                                       ', & ! index 306
     '     ETO2 + Cl --> POx + PALD2 + ClO + ALD2 + HO2                                                   ', & ! index 307
     '      Cl + MOH --> PCH2O + HCl + CH2O + HO2                                                         ', & ! index 308
     '      EOH + Cl --> PALD2 + HCl + ALD2                                                               ', & ! index 309
     '     ACTA + Cl --> CO2 + HCl + MO2                                                                  ', & ! index 310
     '     C3H8 + Cl --> B3O2 + HCl                                                                       ', & ! index 311
     '     C3H8 + Cl --> A3O2 + HCl                                                                       ', & ! index 312
     '     ACET + Cl --> ATO2 + HCl                                                                       ', & ! index 313
     '     ISOP + Cl --> RIO2 + HCl                                                                       ', & ! index 314
     '     ALK4 + Cl --> R4O2 + HCl                                                                       ', & ! index 315
     '     PRPE + Cl --> PO2 + HCl                                                                        ', & ! index 316
     '     PRPE + Br --> PO2 + HBr                                                                        ', & ! index 317
     '        I + NO --> INO                                                                              ', & ! index 318
     '         2 INO --> I2 + 2 NO                                                                        ', & ! index 319
     '       I + NO2 --> IONO                                                                             ', & ! index 320
     '          IONO --> I + NO2                                                                          ', & ! index 321
     '        2 IONO --> I2 + 2 NO2                                                                       ', & ! index 322
     '      I2 + NO3 --> IONO2 + I                                                                        ', & ! index 323
     '      IO + NO2 --> IONO2                                                                            ', & ! index 324
     '         IONO2 --> IO + NO2                                                                         ', & ! index 325
     '     IONO2 + I --> I2 + NO3                                                                         ', & ! index 326
     '       I + BrO --> IO + Br                                                                          ', & ! index 327
     '      IO + BrO --> 2 LOx + I + Br + O2                                                              ', & ! index 328
     '      IO + BrO --> OIO + Br                                                                         ', & ! index 329
     '      OIO + IO --> I2O3                                                                             ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ &
     '         2 OIO --> I2O4                                                                             ', & ! index 331
     '          I2O4 --> 2 OIO                                                                            ', & ! index 332
     '      OIO + NO --> IO + NO2                                                                         ', & ! index 333
     '      IO + ClO --> OClO + I                                                                         ', & ! index 334
     '      IO + ClO --> 2 LOx + I + Cl + O2                                                              ', & ! index 335
     '      IO + ClO --> 2 LOx + ICl + O2                                                                 ', & ! index 336
     '        I + O3 --> IO + O2                                                                          ', & ! index 337
     '       I + HO2 --> HI + O2                                                                          ', & ! index 338
     '       I2 + OH --> POx + HOI + I                                                                    ', & ! index 339
     '       HI + OH --> I + H2O                                                                          ', & ! index 340
     '      HOI + OH --> IO + H2O                                                                         ', & ! index 341
     '      IO + HO2 --> HOI + O2                                                                         ', & ! index 342
     '       IO + NO --> I + NO2                                                                          ', & ! index 343
     '          2 IO --> OIO + I                                                                          ', & ! index 344
     '          2 IO --> I2O2                                                                             ', & ! index 345
     '          I2O2 --> 2 IO                                                                             ', & ! index 346
     '          I2O2 --> OIO + I                                                                          ', & ! index 347
     '     CH3I + OH --> I + MO2 + H2O                                                                    ', & ! index 348
     '      HC5 + OH --> HC5OO                                                                            ', & ! index 349
     '    HC5OO + NO --> POx + 0.09 PCO + 0.09 PRCHO + 0.216 PGLYX + 0.234 PMGLY + 0.17 MOBA + 0.29 DHMOB ', & ! index 350
     '    HC5OO + NO --> POx + PHNO3 + HNO3                                                               ', & ! index 351
     '   HC5OO + HO2 --> 0.9 PMGLY + 0.1 IAP + 0.9 GLYC + 0.9 MGLY + 0.9 HO2 + 0.9 OH                     ', & ! index 352
     '   ISOPND + OH --> 0.9 LOx + 0.1 IEPOXD + 0.9 ISOPNDO2 + 0.1 NO2                                    ', & ! index 353
     '   ISOPNB + OH --> 0.9 LOx + 0.067 IEPOXA + 0.033 IEPOXB + 0.9 ISOPNBO2 + 0.1 NO2                   ', & ! index 354
     ' ISOPNDO2 + NO --> 1.394 POx + 0.15 PCH2O + 0.057 PHCOOH + 0.27 DHDN + 0.21 ETHLN + 0.057 HCOOH + 0.', & ! index 355
     'ISOPNDO2 + HO2 --> POx + 0.07 PCH2O + 0.5 ISNP + 0.2 ETHLN + 0.06 MVKN + 0.23 PROPNN + 0.01 MACRN + ', & ! index 356
     ' ISOPNBO2 + NO --> 1.58 POx + 0.7 PCH2O + 0.21 DHDN + 0.26 MVKN + 0.44 MACRN + 0.09 GLYC + 0.09 HAC ', & ! index 357
     'ISOPNBO2 + HO2 --> 1.01 POx + 0.44 PCH2O + 0.51 ISNP + 0.16 MVKN + 0.28 MACRN + 0.06 GLYC + 0.06 HAC', & ! index 358
     '     ISNP + OH --> 0.388 LOx + 0.193 ISOPNBO2 + 0.193 ISOPNDO2 + 0.612 R4N1 + 0.612 OH              ', & ! index 359
     '     MVKN + OH --> 0.35 PYAC + POx + 0.35 PCH2O + 0.65 PHCOOH + 0.65 PMGLY + 0.65 HCOOH + 0.65 MGLY ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ &
     '    MACRN + OH --> MACRNO2                                                                          ', & ! index 361
     '  MACRNO2 + NO --> 0.93 CO2 + 1.15 POx + 0.08 PCH2O + 0.07 PHCOOH + 0.08 PACTA + 0.07 PMGLY + 0.07 H', & ! index 362
     ' MACRNO2 + HO2 --> 0.93 CO2 + 0.15 POx + 0.08 PCH2O + 0.07 PHCOOH + 0.08 PACTA + 0.07 PMGLY + 0.07 H', & ! index 363
     ' MACRNO2 + NO2 --> LOx + PMNN                                                                       ', & ! index 364
     '          PMNN --> POx + MACRNO2 + NO2                                                              ', & ! index 365
     '    DHMOB + OH --> 1.5 PCO + 0.5 HAC + 1.5 CO + HO2 + 0.5 MEK                                       ', & ! index 366
     '    DIBOO + NO --> POx + 0.48 PGLYX + 0.52 PMGLY + 0.48 GLYX + 0.52 GLYC + 0.52 MGLY + 0.48 HAC + HO', & ! index 367
     '    DIBOO + NO --> POx + PHNO3 + HNO3                                                               ', & ! index 368
     '   DIBOO + HO2 --> 0.072 PGLYX + 0.078 PMGLY + 0.85 PR4P + 0.85 R4P + 0.072 GLYX + 0.078 GLYC + 0.07', & ! index 369
     '     MOBA + OH --> MOBAOO                                                                           ', & ! index 370
     '   MOBAOO + NO --> CO2 + POx + PRCHO + RCHO + HO2 + NO2                                             ', & ! index 371
     '   MOBAOO + NO --> POx + PHNO3 + HNO3                                                               ', & ! index 372
     '  MOBAOO + HO2 --> 0.5 CO2 + 0.5 PRCHO + 0.5 PR4P + 0.5 R4P + 0.5 RCHO + 0.5 HO2 + 0.5 OH           ', & ! index 373
     '     MOBA + O3 --> CO2 + LOx + HO2 + OH + MEK                                                       ', & ! index 374
     '    ETHLN + OH --> CO2 + PCH2O + CH2O + NO2                                                         ', & ! index 375
     '   PROPNN + OH --> PMGLY + MGLY + NO2                                                               ', & ! index 376
     '    CH2OO + CO --> LCO + PCH2O + CH2O                                                               ', & ! index 377
     '    CH2OO + NO --> POx + PCH2O + CH2O + NO2                                                         ', & ! index 378
     '   CH2OO + NO2 --> POx + PCH2O + CH2O + NO3                                                         ', & ! index 379
     '   CH2OO + SO2 --> SO4 + PSO4 + PCH2O + CH2O                                                        ', & ! index 380
     '   CH2OO + H2O --> PH2O2 + PCH2O + H2O2 + CH2O                                                      ', & ! index 381
     '   CH2OO + H2O --> PHCOOH + HCOOH                                                                   ', & ! index 382
     '   MACROO + CO --> LCO + MACR                                                                       ', & ! index 383
     '   MACROO + NO --> POx + MACR + NO2                                                                 ', & ! index 384
     '  MACROO + NO2 --> POx + MACR + NO3                                                                 ', & ! index 385
     '  MACROO + SO2 --> SO4 + PSO4 + MACR                                                                ', & ! index 386
     '  MACROO + H2O --> MRP                                                                              ', & ! index 387
     '  MACROO + H2O --> PH2O2 + H2O2 + MACR                                                              ', & ! index 388
     '    MVKOO + CO --> LCO + MVK                                                                        ', & ! index 389
     '    MVKOO + NO --> POx + MVK + NO2                                                                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ &
     '   MVKOO + NO2 --> POx + MVK + NO3                                                                  ', & ! index 391
     '   MVKOO + SO2 --> SO4 + PSO4 + MVK                                                                 ', & ! index 392
     '   MVKOO + H2O --> PH2O2 + H2O2 + MVK                                                               ', & ! index 393
     '   MGLYOO + CO --> LCO + PMGLY + MGLY                                                               ', & ! index 394
     '   MGLYOO + NO --> POx + PMGLY + MGLY + NO2                                                         ', & ! index 395
     '  MGLYOO + NO2 --> POx + PMGLY + MGLY + NO3                                                         ', & ! index 396
     '  MGLYOO + SO2 --> SO4 + PSO4 + PMGLY + MGLY                                                        ', & ! index 397
     '  MGLYOO + H2O --> PH2O2 + PMGLY + H2O2 + MGLY                                                      ', & ! index 398
     '    MGLOO + CO --> LCO + PMGLY + MGLY                                                               ', & ! index 399
     '    MGLOO + NO --> POx + PMGLY + MGLY + NO2                                                         ', & ! index 400
     '   MGLOO + NO2 --> POx + PMGLY + MGLY + NO3                                                         ', & ! index 401
     '   MGLOO + SO2 --> SO4 + PSO4 + PMGLY + MGLY                                                        ', & ! index 402
     '   MGLOO + H2O --> MCO3 + MO2                                                                       ', & ! index 403
     '   MGLOO + H2O --> PH2O2 + PMGLY + H2O2 + MGLY                                                      ', & ! index 404
     '  CH3CHOO + CO --> LCO + PALD2 + ALD2                                                               ', & ! index 405
     '  CH3CHOO + NO --> POx + PALD2 + ALD2 + NO2                                                         ', & ! index 406
     ' CH3CHOO + NO2 --> POx + PALD2 + ALD2 + NO3                                                         ', & ! index 407
     ' CH3CHOO + SO2 --> SO4 + PSO4 + PALD2 + ALD2                                                        ', & ! index 408
     ' CH3CHOO + H2O --> PH2O2 + PALD2 + H2O2 + ALD2                                                      ', & ! index 409
     ' CH3CHOO + H2O --> PACTA + ACTA                                                                     ', & ! index 410
     '     GAOO + CO --> LCO + GLYC                                                                       ', & ! index 411
     '     GAOO + NO --> POx + GLYC + NO2                                                                 ', & ! index 412
     '    GAOO + NO2 --> POx + GLYC + NO3                                                                 ', & ! index 413
     '    GAOO + SO2 --> SO4 + PSO4 + GLYC                                                                ', & ! index 414
     '    GAOO + H2O --> PH2O2 + H2O2 + GLYC                                                              ', & ! index 415
     '    GAOO + H2O --> HAC                                                                              ', & ! index 416
     '     MTPA + OH --> PIO2                                                                             ', & ! index 417
     '     MTPO + OH --> PIO2                                                                             ', & ! index 418
     '     PIO2 + NO --> 0.82 POx + 0.23 PCH2O + 0.07 PHCOOH + 0.43 PRCHO + 0.12 MONITS + 0.07 HCOOH + 0.0', & ! index 419
     '    PIO2 + HO2 --> PIP                                                                              ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ &
     '    PIO2 + MO2 --> 0.75 PCH2O + 0.75 PRCHO + 0.25 ROH + 0.75 CH2O + 0.75 RCHO + HO2 + 0.75 MEK + 0.2', & ! index 421
     '   PIO2 + MCO3 --> PRCHO + PRCOOH + RCHO + 0.5 HO2 + 0.5 MO2 + MEK + RCOOH                          ', & ! index 422
     '    PIO2 + NO3 --> LOx + PRCHO + RCHO + HO2 + NO2 + MEK                                             ', & ! index 423
     '     MTPA + O3 --> LOx + 0.14 PCO + 0.02 PH2O2 + 0.65 PRCHO + 0.02 H2O2 + 0.62 KO2 + 0.65 RCHO + 0.1', & ! index 424
     '     MTPO + O3 --> LOx + 0.14 PCO + 0.02 PH2O2 + 0.65 PRCHO + 0.02 H2O2 + 0.62 KO2 + 0.65 RCHO + 0.1', & ! index 425
     '    MTPA + NO3 --> 2 LOx + 0.9 OLND + 0.1 OLNN                                                      ', & ! index 426
     '    MTPO + NO3 --> 2 LOx + 0.9 OLND + 0.1 OLNN                                                      ', & ! index 427
     '     LIMO + OH --> LIMO2                                                                            ', & ! index 428
     '     LIMO + O3 --> LOx + 0.14 PCO + 0.02 PH2O2 + 0.04 PCH2O + 0.01 PHCOOH + 0.07 PRCOOH + 0.02 H2O2 ', & ! index 429
     '    LIMO + NO3 --> 2 LOx + 0.5 OLND + 0.5 OLNN                                                      ', & ! index 430
     '    LIMO2 + NO --> 0.78 POx + 0.231 PCH2O + 0.491 PRCHO + 0.22 MONITU + 0.058 HAC + 0.289 PRPE + 0.2', & ! index 431
     '   LIMO2 + HO2 --> PIP                                                                              ', & ! index 432
     '   LIMO2 + MO2 --> 1.04 PCH2O + 0.25 ROH + 0.192 PRPE + 0.308 MACR + 1.04 CH2O + HO2 + 0.25 MOH     ', & ! index 433
     '  LIMO2 + MCO3 --> 0.385 PCH2O + 0.5 PRCOOH + 0.192 PRPE + 0.308 MACR + 0.385 CH2O + 0.5 HO2 + 0.5 M', & ! index 434
     '   LIMO2 + NO3 --> LOx + 0.385 PCH2O + 0.385 PRPE + 0.615 MACR + 0.385 CH2O + HO2 + NO2             ', & ! index 435
     '      PIP + OH --> 0.08 PRCHO + 0.44 R4O2 + 0.08 RCHO + 0.49 OH + 0.41 MEK                          ', & ! index 436
     '     OLNN + NO --> POx + MONITS + HO2 + NO2                                                         ', & ! index 437
     '     OLND + NO --> 2 POx + 0.287 PCH2O + 1.24 PRCHO + 0.287 CH2O + 1.24 RCHO + 2 NO2 + 0.464 MEK    ', & ! index 438
     '    OLNN + HO2 --> 0.7 MONITS + 0.3 MONITU                                                          ', & ! index 439
     '    OLND + HO2 --> 0.7 MONITS + 0.3 MONITU                                                          ', & ! index 440
     '    OLNN + MO2 --> PCH2O + 0.7 MONITS + 0.3 MONITU + CH2O + 2 HO2                                   ', & ! index 441
     '    OLND + MO2 --> 0.5 POx + 0.965 PCH2O + 0.93 PRCHO + 0.25 ROH + 0.35 MONITS + 0.15 MONITU + 0.965', & ! index 442
     '   OLNN + MCO3 --> 0.7 MONITS + 0.3 MONITU + HO2 + MO2                                              ', & ! index 443
     '   OLND + MCO3 --> POx + 0.287 PCH2O + 1.24 PRCHO + 0.5 PRCOOH + 0.287 CH2O + 1.24 RCHO + 0.5 MO2 + ', & ! index 444
     '    OLNN + NO3 --> LOx + 0.7 MONITS + 0.3 MONITU + HO2 + NO2                                        ', & ! index 445
     '    OLND + NO3 --> 0.287 PCH2O + 1.24 PRCHO + 0.287 CH2O + 1.24 RCHO + 2 NO2 + 0.464 MEK            ', & ! index 446
     '        2 OLNN --> 1.4 MONITS + 0.6 MONITU + HO2                                                    ', & ! index 447
     '   OLND + OLNN --> 0.5 POx + 0.202 PCH2O + 0.64 PRCHO + 1.05 MONITS + 0.45 MONITU + 0.202 CH2O + 0.6', & ! index 448
     '        2 OLND --> POx + 0.504 PCH2O + 1.21 PRCHO + 0.7 MONITS + 0.3 MONITU + 0.504 CH2O + 1.21 RCHO', & ! index 449
     '   MONITS + OH --> HONIT                                                                            ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ &
     '   MONITU + OH --> HONIT                                                                            ', & ! index 451
     '   MONITU + O3 --> LOx + HONIT                                                                      ', & ! index 452
     '  MONITU + NO3 --> 2 LOx + HONIT                                                                    ', & ! index 453
     '  MONITS + NO3 --> 2 LOx + HONIT                                                                    ', & ! index 454
     '        IONITA --> INDIOL + POx + PHNO3 + HNO3                                                      ', & ! index 455
     '        MONITA --> INDIOL + POx + PHNO3 + HNO3                                                      ', & ! index 456
     '    HONIT + OH --> 2 POx + HAC + NO3                                                                ', & ! index 457
     '    HC187 + OH --> 0.5 PCO + PCH2O + 0.5 PMGLY + 0.5 MGLY + CH2O + 0.5 CO + 0.5 HO2 + 0.5 MCO3      ', & ! index 458
     '    HPALD + OH --> 0.085 CO2 + 0.55 PCO + 0.55 PCH2O + 0.085 PGLYX + 0.55 PMGLY + 0.365 HPC52O2 + 0.', & ! index 459
     '  DHPCARP + NO --> POx + PGLYX + PMGLY + GLYX + MGLY + OH + NO2                                     ', & ! index 460
     '  HPC52O2 + NO --> POx + PGLYX + PMGLY + GLYX + MGLY + OH + NO2                                     ', & ! index 461
     ' DHPCARP + HO2 --> PRCOOH + RCOOH                                                                   ', & ! index 462
     ' HPC52O2 + HO2 --> PRCOOH + RCOOH                                                                   ', & ! index 463
     '       DHPCARP --> PCO + PRCOOH + CO + OH + RCOOH                                                   ', & ! index 464
     '       DHPCARP --> DHDC                                                                             ', & ! index 465
     '           HO2 --> O2                                                                               ', & ! index 466
     '           NO2 --> 0.5 LOx + 0.5 PHNO3 + 0.5 HNO2 + 0.5 HNO3                                        ', & ! index 467
     '           NO3 --> LOx + PHNO3 + HNO3                                                               ', & ! index 468
     '    N2O5 + H2O --> LOx + 2 PHNO3 + 2 HNO3                                                           ', & ! index 469
     '    N2O5 + HCl --> LOx + PHNO3 + ClNO2 + HNO3                                                       ', & ! index 470
     '          N2O5 --> LOx + PHNO3 + ClNO2 + HNO3                                                       ', & ! index 471
     '   BrNO3 + H2O --> PHNO3 + HOBr + HNO3                                                              ', & ! index 472
     '   BrNO3 + HCl --> LOx + PHNO3 + BrCl + HNO3                                                        ', & ! index 473
     '   ClNO3 + H2O --> PHNO3 + HOCl + HNO3                                                              ', & ! index 474
     '   ClNO3 + HCl --> LOx + PHNO3 + Cl2 + HNO3                                                         ', & ! index 475
     '   ClNO3 + HBr --> LOx + PHNO3 + BrCl + HNO3                                                        ', & ! index 476
     'BrSALA + ClNO3 --> LOx + PHNO3 + BrCl + HNO3                                                        ', & ! index 477
     'BrSALC + ClNO3 --> LOx + PHNO3 + BrCl + HNO3                                                        ', & ! index 478
     '    HOCl + HCl --> LOx + Cl2 + H2O                                                                  ', & ! index 479
     '    HOCl + HBr --> LOx + BrCl + H2O                                                                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ &
     '    HOBr + HBr --> LOx + Br2 + H2O                                                                  ', & ! index 481
     '    HOBr + HCl --> LOx + BrCl + H2O                                                                 ', & ! index 482
     '          HOBr --> LOx + BrCl + H2O                                                                 ', & ! index 483
     ' BrSALA + HOBr --> LOx + Br2                                                                        ', & ! index 484
     ' BrSALC + HOBr --> LOx + Br2                                                                        ', & ! index 485
     '          HOBr --> SO4H1 + LOx + HBr                                                                ', & ! index 486
     '          HOBr --> SO4H2 + LOx + HBr                                                                ', & ! index 487
     '           HCl --> O2                                                                               ', & ! index 488
     '           HCl --> O2                                                                               ', & ! index 489
     '      HBr + O3 --> HOBr                                                                             ', & ! index 490
     '   BrSALA + O3 --> HOBr                                                                             ', & ! index 491
     '   BrSALC + O3 --> HOBr                                                                             ', & ! index 492
     '           HBr --> BrSALA                                                                           ', & ! index 493
     '           HBr --> BrSALC                                                                           ', & ! index 494
     '            HI --> AERI                                                                             ', & ! index 495
     '            HI --> ISALA                                                                            ', & ! index 496
     '            HI --> ISALC                                                                            ', & ! index 497
     '           HOI --> ISALA + LOx                                                                      ', & ! index 498
     '           HOI --> ISALC + LOx                                                                      ', & ! index 499
     '          I2O2 --> 2 AERI + 2 LOx                                                                   ', & ! index 500
     '          I2O2 --> 2 ISALA + 2 LOx                                                                  ', & ! index 501
     '          I2O2 --> 2 ISALC + 2 LOx                                                                  ', & ! index 502
     '          I2O3 --> 2 AERI + 3 LOx                                                                   ', & ! index 503
     '          I2O3 --> 2 ISALA + 3 LOx                                                                  ', & ! index 504
     '          I2O3 --> 2 ISALC + 3 LOx                                                                  ', & ! index 505
     '          I2O4 --> 2 AERI + 4 LOx                                                                   ', & ! index 506
     '          I2O4 --> 2 ISALA + 4 LOx                                                                  ', & ! index 507
     '          I2O4 --> 2 ISALC + 4 LOx                                                                  ', & ! index 508
     '          IONO --> ISALA + LOx                                                                      ', & ! index 509
     '          IONO --> ISALC + LOx                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ &
     '         IONO2 --> ISALA + 2 LOx                                                                    ', & ! index 511
     '         IONO2 --> ISALC + 2 LOx                                                                    ', & ! index 512
     '          IONO --> LOx + 0.15 IBr + 0.85 ICl + HNO2                                                 ', & ! index 513
     '         IONO2 --> LOx + PHNO3 + 0.15 IBr + 0.85 ICl + HNO3                                         ', & ! index 514
     '           HOI --> LOx + 0.15 IBr + 0.85 ICl                                                        ', & ! index 515
     '          GLYX --> SOAGX                                                                            ', & ! index 516
     '          MGLY --> SOAMG                                                                            ', & ! index 517
     '        IEPOXA --> SOAIE                                                                            ', & ! index 518
     '        IEPOXB --> SOAIE                                                                            ', & ! index 519
     '        IEPOXD --> SOAIE                                                                            ', & ! index 520
     '          IMAE --> SOAME                                                                            ', & ! index 521
     '          LVOC --> LVOCOA                                                                           ', & ! index 522
     '        ISN1OG --> ISN1OA                                                                           ', & ! index 523
     '        ISOPND --> LOx + IONITA                                                                     ', & ! index 524
     '        ISOPNB --> LOx + IONITA                                                                     ', & ! index 525
     '         MACRN --> LOx + IONITA                                                                     ', & ! index 526
     '          MVKN --> LOx + IONITA                                                                     ', & ! index 527
     '          R4N2 --> LOx + IONITA                                                                     ', & ! index 528
     '          DHDN --> IONITA                                                                           ', & ! index 529
     '        MONITS --> MONITA                                                                           ', & ! index 530
     '        MONITU --> MONITA                                                                           ', & ! index 531
     '         HONIT --> MONITA                                                                           ', & ! index 532
     '            O3 --> LOx + 2 OH                                                                       ', & ! index 533
     '            O3 --> LOx + HO2 + OH                                                                   ', & ! index 534
     '           NO2 --> O3 + NO                                                                          ', & ! index 535
     '          H2O2 --> 2 OH                                                                             ', & ! index 536
     '            MP --> PCH2O + CH2O + HO2 + OH                                                          ', & ! index 537
     '          CH2O --> PCO + CO + 2 HO2                                                                 ', & ! index 538
     '          CH2O --> PCO + CO + H2                                                                    ', & ! index 539
     '          HNO3 --> OH + NO2                                                                         ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ &
     '          HNO2 --> OH + NO                                                                          ', & ! index 541
     '          HNO4 --> POx + OH + NO3                                                                   ', & ! index 542
     '          HNO4 --> HO2 + NO2                                                                        ', & ! index 543
     '           NO3 --> O3 + NO2                                                                         ', & ! index 544
     '           NO3 --> 2 LOx + NO + O2                                                                  ', & ! index 545
     '          N2O5 --> NO2 + NO3                                                                        ', & ! index 546
     '          ALD2 --> 0.88 PCO + 0.88 CO + HO2 + 0.12 MCO3 + 0.88 MO2                                  ', & ! index 547
     '          ALD2 --> PCO + CO + CH4                                                                   ', & ! index 548
     '           PAN --> 0.3 POx + 0.7 MCO3 + 0.3 MO2 + 0.7 NO2 + 0.3 NO3                                 ', & ! index 549
     '          RCHO --> PCO + ETO2 + CO + HO2                                                            ', & ! index 550
     '          ACET --> MCO3 + MO2                                                                       ', & ! index 551
     '          ACET --> PCO + CO + 2 MO2                                                                 ', & ! index 552
     '           MEK --> 0.15 RCO3 + 0.85 ETO2 + 0.85 MCO3 + 0.15 MO2                                     ', & ! index 553
     '          GLYC --> PCO + 0.9 PCH2O + 0.9 CH2O + CO + 1.73 HO2 + 0.07 OH + 0.1 MOH                   ', & ! index 554
     '          GLYX --> 2 PCO + 2 CO + 2 HO2                                                             ', & ! index 555
     '          GLYX --> 2 PCO + 2 CO + H2                                                                ', & ! index 556
     '          GLYX --> PCO + PCH2O + CH2O + CO                                                          ', & ! index 557
     '          MGLY --> PCO + CO + HO2 + MCO3                                                            ', & ! index 558
     '           MVK --> PCO + PRPE + CO                                                                  ', & ! index 559
     '           MVK --> PCO + PCH2O + CH2O + CO + HO2 + MCO3                                             ', & ! index 560
     '           MVK --> RCO3 + MO2                                                                       ', & ! index 561
     '          MACR --> PCO + PCH2O + CH2O + CO + HO2 + MCO3                                             ', & ! index 562
     '           HAC --> PCH2O + CH2O + HO2 + MCO3                                                        ', & ! index 563
     '          INPN --> PRCHO + RCHO + HO2 + OH + NO2                                                    ', & ! index 564
     '          PRPN --> PRCHO + RCHO + HO2 + OH + NO2                                                    ', & ! index 565
     '           ETP --> PALD2 + ALD2 + HO2 + OH                                                          ', & ! index 566
     '          RA3P --> PRCHO + RCHO + HO2 + OH                                                          ', & ! index 567
     '          RB3P --> ACET + HO2 + OH                                                                  ', & ! index 568
     '           R4P --> PRCHO + RCHO + HO2 + OH                                                          ', & ! index 569
     '            PP --> PCH2O + PALD2 + CH2O + ALD2 + HO2 + OH                                           ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ &
     '            RP --> PALD2 + ALD2 + HO2 + OH                                                          ', & ! index 571
     '          RIPA --> 0.005 LVOC + 0.71 PCH2O + 0.275 HC5 + 0.285 MACR + 0.71 CH2O + 0.425 MVK + 0.985 ', & ! index 572
     '          RIPB --> 0.005 LVOC + 0.71 PCH2O + 0.275 HC5 + 0.285 MACR + 0.71 CH2O + 0.425 MVK + 0.985 ', & ! index 573
     '          RIPD --> 0.005 LVOC + 0.71 PCH2O + 0.275 HC5 + 0.285 MACR + 0.71 CH2O + 0.425 MVK + 0.985 ', & ! index 574
     '           IAP --> 0.67 PCO + 0.58 PMGLY + 0.26 GLYC + 0.58 MGLY + 0.36 HAC + 0.67 CO + HO2 + OH + 0', & ! index 575
     '          ISNP --> PRCHO + RCHO + HO2 + OH + NO2                                                    ', & ! index 576
     '           VRP --> 0.3 PCH2O + 0.3 PMGLY + 0.7 GLYC + 0.3 MGLY + 0.3 CH2O + 0.3 HO2 + 0.7 MCO3 + OH ', & ! index 577
     '           MRP --> 0.5 PCO + 0.5 PCH2O + HAC + 0.5 CH2O + 0.5 CO + HO2 + OH                         ', & ! index 578
     '          MAOP --> PCH2O + CH2O + MCO3 + OH                                                         ', & ! index 579
     '          R4N2 --> 0.13 PRCHO + 0.32 PALD2 + 0.05 A3O2 + 0.18 B3O2 + 0.32 ACET + 0.32 ETO2 + 0.32 AL', & ! index 580
     '           MAP --> OH + MO2                                                                         ', & ! index 581
     '         MACRN --> 0.5 PCO + 0.5 PCH2O + PMGLY + MGLY + HAC + 0.5 CH2O + 0.5 CO + HO2 + NO2         ', & ! index 582
     '          MVKN --> GLYC + MCO3 + NO2                                                                ', & ! index 583
     '        ISOPNB --> HC5 + HO2 + NO2                                                                  ', & ! index 584
     '           Br2 --> 2 Br                                                                             ', & ! index 585
     '           BrO --> O3 + Br                                                                          ', & ! index 586
     '          HOBr --> LOx + OH + Br                                                                    ', & ! index 587
     '         BrNO3 --> Br + NO3                                                                         ', & ! index 588
     '         BrNO3 --> BrO + NO2                                                                        ', & ! index 589
     '         BrNO2 --> Br + NO2                                                                         ', & ! index 590
     '         CHBr3 --> 3 Br                                                                             ', & ! index 591
     '        CH2Br2 --> 2 Br                                                                             ', & ! index 592
     '         CH3Br --> MO2 + Br                                                                         ', & ! index 593
     '         CH3Cl --> Cl + MO2                                                                         ', & ! index 594
     '        CH2Cl2 --> 2 Cl                                                                             ', & ! index 595
     '          BrCl --> Cl + Br                                                                          ', & ! index 596
     '           Cl2 --> 2 Cl                                                                             ', & ! index 597
     '           ClO --> Cl + O3                                                                          ', & ! index 598
     '          OClO --> ClO + O3                                                                         ', & ! index 599
     '         Cl2O2 --> 2 LOx + ClOO + Cl                                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_20 = (/ &
     '         ClNO2 --> Cl + NO2                                                                         ', & ! index 601
     '         ClNO3 --> Cl + NO3                                                                         ', & ! index 602
     '         ClNO3 --> ClO + NO2                                                                        ', & ! index 603
     '          HOCl --> LOx + OH + Cl                                                                    ', & ! index 604
     '          ClOO --> Cl + O2                                                                          ', & ! index 605
     '            I2 --> 2 I                                                                              ', & ! index 606
     '           HOI --> LOx + I + OH                                                                     ', & ! index 607
     '            IO --> I + O3                                                                           ', & ! index 608
     '           OIO --> 2 LOx + I + O2                                                                   ', & ! index 609
     '           INO --> I + NO                                                                           ', & ! index 610
     '          IONO --> I + NO2                                                                          ', & ! index 611
     '         IONO2 --> I + NO3                                                                          ', & ! index 612
     '          I2O2 --> OIO + I                                                                          ', & ! index 613
     '          CH3I --> I                                                                                ', & ! index 614
     '         CH2I2 --> 2 I                                                                              ', & ! index 615
     '        CH2ICl --> I + Cl                                                                           ', & ! index 616
     '        CH2IBr --> I + Br                                                                           ', & ! index 617
     '          I2O4 --> 2 OIO                                                                            ', & ! index 618
     '          I2O3 --> OIO + IO                                                                         ', & ! index 619
     '           IBr --> I + Br                                                                           ', & ! index 620
     '           ICl --> I + Cl                                                                           ', & ! index 621
     '           MPN --> POx + PCH2O + CH2O + HO2 + NO3                                                   ', & ! index 622
     '           MPN --> MO2 + NO2                                                                        ', & ! index 623
     '        ISOPND --> HC5 + HO2 + NO2                                                                  ', & ! index 624
     '        PROPNN --> PCO + PCH2O + CH2O + CO + MO2 + NO2                                              ', & ! index 625
     '         ATOOH --> PCH2O + CH2O + MCO3 + OH                                                         ', & ! index 626
     '           PIP --> PRCHO + RCHO + HO2 + OH                                                          ', & ! index 627
     '          IPMN --> 0.4 CO2 + 0.4 POx + 0.4 PCH2O + 0.6 IMAO3 + 0.4 CH2O + 0.4 MCO3 + 0.6 NO2 + 0.4 N', & ! index 628
     '         ETHLN --> PCO + PCH2O + CH2O + CO + HO2 + NO2                                              ', & ! index 629
     '          DHDC --> PGLYX + PMGLY + GLYX + MGLY + 2 OH                                               ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_21 = (/ &
     '         HPALD --> 1.89 PCO + 0.5 PMGLY + 0.11 GLYC + 0.5 MGLY + 0.39 HAC + 1.89 CO + 0.89 HO2 + 0.1', & ! index 631
     '          ISN1 --> PCH2O + 0.25 PGLYX + 0.25 PMGLY + 0.25 GLYX + 0.5 GLYC + 0.25 MGLY + 0.5 HAC + CH', & ! index 632
     '        MONITS --> POx + NO2 + MEK                                                                  ', & ! index 633
     '        MONITU --> POx + PRCHO + RCHO + NO2                                                         ', & ! index 634
     '         HONIT --> POx + HAC + NO2                                                                  ', & ! index 635
     '     C2H4 + O3 --> C2H4O3 + LOx + PCH2O + CH2OO + CH2O                                              ', & ! index 636
     '     C2H4 + OH --> C2H4OH + ETOO                                                                    ', & ! index 637
     '    ETOO + HO2 --> ETHP                                                                             ', & ! index 638
     '     ETOO + NO --> 0.995 POx + 0.005 ETHN + 0.995 ETO + 0.995 NO2                                   ', & ! index 639
     '    ETOO + NO3 --> LOx + ETO + NO2                                                                  ', & ! index 640
     '    ETOO + MO2 --> 0.8 PCH2O + 0.6 ETO + 0.2 ETHP + 0.2 GLYC + 0.8 CH2O + 0.6 HO2 + 0.2 MOH         ', & ! index 641
     '           ETO --> 2 PCH2O + 2 CH2O + HO2                                                           ', & ! index 642
     '      ETO + O2 --> GLYC + HO2                                                                       ', & ! index 643
     '     ETHN + OH --> POx + GLYC + NO2                                                                 ', & ! index 644
     '     ETHP + OH --> ETOO                                                                             ', & ! index 645
     '     ETHP + OH --> GLYC + OH                                                                        ', & ! index 646
     '     C2H2 + OH --> 0.364 PCO + 0.364 PHCOOH + 0.636 PGLYX + 0.364 HCOOH + 0.636 GLYX + 0.364 CO + 0.', & ! index 647
     '          ETHP --> ETO + OH                                                                         ', & ! index 648
     '     BENZ + OH --> LBENZ + 0.53 PPHEN + 0.12 PEPX + 0.53 PHEN + 0.12 EPX + 0.352 BRO2 + 0.648 HO2   ', & ! index 649
     '     TOLU + OH --> LTOLU + 0.25 PCSL + 0.25 CSL + 0.75 TRO2 + 0.25 HO2                              ', & ! index 650
     '     XYLE + OH --> LXYLE + 0.17 PCSL + 0.17 CSL + 0.83 XRO2 + 0.17 HO2                              ', & ! index 651
     '     BRO2 + NO --> 0.92 POx + 0.84 PDCB1 + 0.92 PGLYX + 0.84 DCB1 + 0.92 GLYX + 0.92 HO2 + 0.92 NO2 ', & ! index 652
     '     TRO2 + NO --> POx + 0.7 PDCB1 + 0.16 PGLYX + 0.17 PMGLY + 0.7 DCB1 + 0.16 GLYX + 0.17 MGLY + HO', & ! index 653
     '     XRO2 + NO --> POx + 0.806 PDCB1 + 0.45 PMGLY + 0.806 DCB1 + 0.45 MGLY + HO2 + NO2              ', & ! index 654
     '    BRO2 + HO2 --> 3 ETP                                                                            ', & ! index 655
     '    TRO2 + HO2 --> 3.5 ETP                                                                          ', & ! index 656
     '    XRO2 + HO2 --> 4 ETP                                                                            ', & ! index 657
     '    BRO2 + MO2 --> PCH2O + 0.96 PDCB1 + 0.6 PGLYX + 0.96 DCB1 + 0.6 GLYX + CH2O + 0.16 HO2          ', & ! index 658
     '    TRO2 + MO2 --> PCH2O + 0.7 PDCB1 + 0.16 PGLYX + 0.17 PMGLY + 0.7 DCB1 + 0.16 GLYX + 0.17 MGLY + ', & ! index 659
     '    XRO2 + MO2 --> PCH2O + 0.86 PDCB1 + 0.45 PMGLY + 0.86 DCB1 + 0.45 MGLY + CH2O + 2 HO2           ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_22 = (/ &
     '   BRO2 + MCO3 --> 1.16 PDCB1 + 0.6 PGLYX + 1.16 DCB1 + 0.6 GLYX + 0.6 HO2 + MO2                    ', & ! index 661
     '   TRO2 + MCO3 --> 0.7 PDCB1 + 0.16 PGLYX + 0.17 PMGLY + 0.7 DCB1 + 0.16 GLYX + 0.17 MGLY + HO2 + MO', & ! index 662
     '   XRO2 + MCO3 --> 0.806 PDCB1 + 0.45 PMGLY + 0.806 DCB1 + 0.45 MGLY + HO2 + MO2                    ', & ! index 663
     '    BRO2 + NO3 --> LOx + 0.8 PDCB1 + PGLYX + 0.8 DCB1 + GLYX + HO2 + NO2                            ', & ! index 664
     '     PHEN + OH --> LPHEN + 0.9 XO2 + 0.1 HO2 + 0.9 MCO3                                             ', & ! index 665
     '    PHEN + NO3 --> LOx + 0.5 PCSL + PHNO3 + LPHEN + 0.5 CSL + XNO2 + HNO3                           ', & ! index 666
     '      CSL + OH --> LCSL + 0.9 XO2 + 0.1 HO2 + 0.9 MCO3                                              ', & ! index 667
     '     CSL + NO3 --> LOx + PHNO3 + 0.5 LCSL + 0.5 CSL + XNO2 + HNO3                                   ', & ! index 668
     '      EPX + OH --> PCO + PRCHO + LEPX + XO2 + RCHO + CO + HO2                                       ', & ! index 669
     '     EPX + NO3 --> 0.5 CO2 + LOx + 1.5 PCO + 0.5 PHNO3 + PGLYX + LEPX + GLYX + 0.5 HNO3 + 1.5 CO + 1', & ! index 670
     '     TCO3 + NO --> POx + 0.89 PGLYX + 0.11 PMGLY + 0.89 GLYX + 0.11 MGLY + 0.92 HO2 + 0.05 MCO3 + NO', & ! index 671
     '    TCO3 + MO2 --> 0.475 PCO + 0.5 PCH2O + 0.5 PACTA + 0.445 PGLYX + 0.055 PMGLY + XO2 + 0.445 GLYX ', & ! index 672
     '   TCO3 + MCO3 --> 0.95 PCO + 0.89 PGLYX + 0.11 PMGLY + 2 XO2 + 0.89 GLYX + 0.11 MGLY + 0.95 CO + 0.', & ! index 673
     '    TCO3 + HO2 --> ETP                                                                              ', & ! index 674
     '     XO2 + HO2 --> ETP                                                                              ', & ! index 675
     '     XO2 + MO2 --> PCH2O + CH2O + HO2                                                               ', & ! index 676
     '    XO2 + MCO3 --> MO2                                                                              ', & ! index 677
     '      XO2 + NO --> POx + NO2                                                                        ', & ! index 678
     '    XNO2 + HO2 --> ETP                                                                              ', & ! index 679
     '    XNO2 + MO2 --> PCH2O + CH2O + HO2                                                               ', & ! index 680
     '    XNO2 + NO2 --> PR4N2 + R4N2                                                                     ', & ! index 681
     '   XNO2 + MCO3 --> MO2                                                                              ', & ! index 682
     '     DCB1 + OH --> LDCB1 + HO2 + MCO3                                                               ', & ! index 683
     '    DCB1 + NO3 --> LOx + PHNO3 + LDCB1 + TCO3 + HNO3                                                ', & ! index 684
     '          DCB1 --> LDCB1 + TCO3 + 0.98 HO2 + 0.02 MCO3                                              ', & ! index 685
     '     BALD + OH --> 0.1 PMCT + LBALD + 0.1 MCT + OH                                                  ', & ! index 686
     '      MCT + OH --> 0.1 PBALD + LMCT + 0.1 BALD + OH                                                 ', & ! index 687
     '    AROMN + OH --> LAROMN + 0.1 BZPAN + OH                                                          ', & ! index 688
     '    BZPAN + OH --> 0.1 PAROMN + 0.1 AROMN + OH                                                      ', & ! index 689
     '    BENZP + OH --> 0.1 PNPHEN + LBENZP + 0.1 NPHEN + OH                                             ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(7) :: EQN_NAMES_23 = (/ &
     '    NPHEN + OH --> ONIT + 0.1 PBENZP + PONIT + LNPHEN + 0.1 BENZP + OH                              ', & ! index 691
     '     DCB2 + OH --> 0.1 PDCB3 + LDCB2 + 0.1 DCB3 + OH                                                ', & ! index 692
     '     DCB3 + OH --> 0.1 PDCB2 + LDCB3 + 0.1 DCB2 + OH                                                ', & ! index 693
     '   BZCO3H + OH --> 0.1 PAROMP + LBZCO3H + 0.1 AROMP + OH                                            ', & ! index 694
     '    AROMP + OH --> 0.1 PBZCO3H + LAROMP + 0.1 BZCO3H + OH                                           ', & ! index 695
     '      IDC + OH --> 0.1 PMVKPC + LIDC + 0.1 MVKPC + OH                                               ', & ! index 696
     '    MVKPC + OH --> 0.1 PIDC + LMVKPC + 0.1 IDC + OH                                                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(697) :: EQN_NAMES = (/&
    EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, &
    EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, &
    EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, &
    EQN_NAMES_15, EQN_NAMES_16, EQN_NAMES_17, EQN_NAMES_18, EQN_NAMES_19, &
    EQN_NAMES_20, EQN_NAMES_21, EQN_NAMES_22, EQN_NAMES_23 /)

  CHARACTER(LEN=15), PARAMETER, DIMENSION(52) :: FAM_NAMES = (/ &
     'POx            ','LOx            ','PCO            ', & ! index 1 - 3
     'LCO            ','PSO4           ','LCH4           ', & ! index 4 - 6
     'PH2O2          ','LBENZ          ','LTOLU          ', & ! index 7 - 9
     'LXYLE          ','PCH2O          ','PHCOOH         ', & ! index 10 - 12
     'PRCHO          ','PACTA          ','PCSL           ', & ! index 13 - 15
     'PPHEN          ','PEPX           ','PBALD          ', & ! index 16 - 18
     'PAROMN         ','PDCB1          ','PMCT           ', & ! index 19 - 21
     'PNPHEN         ','PBENZP         ','PHNO3          ', & ! index 22 - 24
     'PGLYX          ','PMGLY          ','PONIT          ', & ! index 25 - 27
     'PR4P           ','PR4N2          ','PRCOOH         ', & ! index 28 - 30
     'PALD2          ','LCSL           ','LPHEN          ', & ! index 31 - 33
     'LEPX           ','LBALD          ','LAROMN         ', & ! index 34 - 36
     'LDCB1          ','LMCT           ','LNPHEN         ', & ! index 37 - 39
     'LBENZP         ','PDCB2          ','PDCB3          ', & ! index 40 - 42
     'PBZCO3H        ','PAROMP         ','PIDC           ', & ! index 43 - 45
     'PMVKPC         ','LDCB2          ','LDCB3          ', & ! index 46 - 48
     'LBZCO3H        ','LAROMP         ','LIDC           ', & ! index 49 - 51
     'LMVKPC         ' /)

! INLINED global variables

! End INLINED global variables


END MODULE gckpp_Monitor
